home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / DFUE / CONNECT / SCRIPTS / MINIMAIL.SCR < prev    next >
Encoding:
Text File  |  1993-07-24  |  2.3 KB  |  101 lines
  1. # Dieses CoSHy Script kann mittels '. minimail' im Setup für den
  2. # Anrufbeantworter angegeben werden. Es dient dann als kleine
  3. # Mini-Mailbox.
  4.  
  5. PASS=Rufus # Das ist Ihr SYSOP-Passwort, mit dem Sie Ihren Rechner
  6.            # bedienen können.
  7.  
  8. send "ATA"                     ; # Zuerst den Anruf entgegennehmen.
  9.  
  10. if ! waitfor -t 30s 'CONNECT'; then
  11.     hangup;                        ; # Da kam keine CoNnect-Meldung
  12.     exit;                          ; # Also Ex und Hopp.
  13. fi
  14.  
  15. # Jetzt haben wir eine Verbindung
  16.  
  17. send \33'[2J'\33'[H'
  18. send "Guten Tag lieber Anrufer,"
  19. send "Sie sind verbunden mit einer CoNnect-Mailbox"
  20. send "Legen Sie aber deswegen nicht gleich wieder auf"
  21. send "Sind Sie der SYSOP? Wenn ja, geben Sie bitte jetzt"
  22. send "Ihr Passwort ein. Wenn nicht, tippen Sie einfach nur"
  23. send "Return."
  24.  
  25. if ! carrier ; then
  26.     exit
  27. fi
  28.  
  29. flush
  30.  
  31. if ! get -n 30s PASSWORD ; then ; # Der ist dann wohl eingeschlafen.
  32.     send ""
  33.     send "Schlafen Sie? Bitte das Passwort eingeben."
  34.     flush
  35.     if ! get -n 30s PASSWORD ; then 
  36.         send "Na denn man Tschüß"
  37.         hangup
  38.         exit
  39.     fi
  40. fi
  41.  
  42. # ---------------------------------------------------------------------
  43.  
  44. if [ $PASSWORD = $PASS ] ; then
  45.  
  46. # So, das ist der SYSOP. Jetzt können Sie eigentlich alles machen,
  47. # was so möglich ist. z.B.: (Beachten Sie den selbstständigen 
  48. # Wandel vom 'SIE' zum 'DU' ;-)
  49.  
  50.     send "Soll ich Dich zurückrufen. Wenn ja, gib jetzt bitte"
  51.     send "Deine Nummer an."
  52.  
  53.     if ! get 30s NUMMER ; then
  54.         NUMMER=
  55.         if ! carrier ; then
  56.             exit
  57.         fi
  58.     fi
  59.  
  60.     if [ a$NUMMER != a ] ; then ; # Er hat eine Nummer angegeben.
  61.         send "OK - bis gleich".
  62.         sleep 1
  63.         hangup
  64.         
  65.         sleep 5
  66.     
  67.         if ! dial -r 10 $NUMMER; then ; 
  68.             exit;                       # hat halt nicht geklappt.
  69.         fi
  70.     fi
  71.  
  72. # Und jetzt wird eine Shell gestartet, bei der sich EIN- und AUSgabe
  73. # auf die Serielle Schnittstelle lenken läßt. (Kann COMMAND.PRG das?)
  74.  
  75.     c:/command.prg < AUX: >AUX:
  76.     exit
  77.  
  78. fi
  79.  
  80. # ---------------------------------------------------------------------
  81.  
  82. # Nein , es ist nur ein normaler Anrufer...
  83.  
  84. send "Hallo Anrufer"
  85. send "Sie können jetzt eine Datei uploaden, die der Sysop vielleicht"
  86. send "interessant findet"
  87. send "Bitte starten Sie das Z-Modem jetzt"
  88.  
  89. if ! carrier; then
  90.     exit
  91. fi
  92.  
  93. download
  94.  
  95. send "Vielen Dank und Tschüß"
  96.  
  97. hangup
  98. flush
  99. exit
  100.  
  101.